home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
1462.ZIP
/
SSGETKEY.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-09-12
|
11KB
|
432 lines
Unit SSGetKey;
Interface
uses SSKbd;
Function GetKey : Integer;
{--------------------------------------------------------------------}
Implementation
Const
KeyTable : Array[0..399] Of Integer = (
{ keyboard }
{ Index - translation code }
{------------------------------}
{ 000 } 0,
{ 001 } 1,
{ 002 } 2,
{ 003 } 3,
{ 004 } 4,
{ 005 } 5,
{ 006 } 6,
{ 007 } 7,
{ 008 } 8,
{ 009 } 9,
{ 010 } 10,
{ 011 } 11,
{ 012 } 12,
{ 013 } 13,
{ 014 } 14,
{ 015 } 15,
{ 016 } 16,
{ 017 } 17,
{ 018 } 18,
{ 019 } 19,
{ 020 } 20,
{ 021 } 21,
{ 022 } 22,
{ 023 } 23,
{ 024 } 24,
{ 025 } 25,
{ 026 } 26,
{ 027 } 27,
{ 028 } 28,
{ 029 } 29,
{ 030 } 30,
{ 031 } 31,
{ 032 } 32,
{ 033 } 33,
{ 034 } 34,
{ 035 } 35,
{ 036 } 36,
{ 037 } 37,
{ 038 } 38,
{ 039 } 39,
{ 040 } 40,
{ 041 } 41,
{ 042 } 42,
{ 043 } 43,
{ 044 } 44,
{ 045 } 45,
{ 046 } 46,
{ 047 } 47,
{ 048 } 48,
{ 049 } 49,
{ 050 } 50,
{ 051 } 51,
{ 052 } 52,
{ 053 } 53,
{ 054 } 54,
{ 055 } 55,
{ 056 } 56,
{ 057 } 57,
{ 058 } 58,
{ 059 } 59,
{ 060 } 60,
{ 061 } 61,
{ 062 } 62,
{ 063 } 63,
{ 064 } 64,
{ 065 } 65,
{ 066 } 66,
{ 067 } 67,
{ 068 } 68,
{ 069 } 69,
{ 070 } 70,
{ 071 } 71,
{ 072 } 72,
{ 073 } 73,
{ 074 } 74,
{ 075 } 75,
{ 076 } 76,
{ 077 } 77,
{ 078 } 78,
{ 079 } 79,
{ 080 } 80,
{ 081 } 81,
{ 082 } 82,
{ 083 } 83,
{ 084 } 84,
{ 085 } 85,
{ 086 } 86,
{ 087 } 87,
{ 088 } 88,
{ 089 } 89,
{ 090 } 90,
{ 091 } 91,
{ 092 } 92,
{ 093 } 93,
{ 094 } 94,
{ 095 } 95,
{ 096 } 96,
{ 097 } 97,
{ 098 } 98,
{ 099 } 99,
{ 100 } 100,
{ 101 } 101,
{ 102 } 102,
{ 103 } 103,
{ 104 } 104,
{ 105 } 105,
{ 106 } 106,
{ 107 } 107,
{ 108 } 108,
{ 109 } 109,
{ 110 } 110,
{ 111 } 111,
{ 112 } 112,
{ 113 } 113,
{ 114 } 114,
{ 115 } 115,
{ 116 } 116,
{ 117 } 117,
{ 118 } 118,
{ 119 } 119,
{ 120 } 120,
{ 121 } 121,
{ 122 } 122,
{ 123 } 123,
{ 124 } 124,
{ 125 } 125,
{ 126 } 126,
{ 127 } 127,
{ 128 } 128,
{ 129 } 129,
{ 130 } 130,
{ 131 } 131,
{ 132 } 132,
{ 133 ^A } 115,
{ 134 ^B } 134,
{ 135 ^C } 135,
{ 136 ^D } 77,
{ 137 ^E } 137,
{ 138 ^F } 116,
{ 139 ^G } 83,
{ 140 ^H } 140,
{ 141 ^I } 141,
{ 142 ^J } 142,
{ 143 ^K } 143,
{ 144 ^L } 144,
{ 145 ^M } 145,
{ 146 ^N } 146,
{ 147 ^O } 147,
{ 148 ^P } 148,
{ 149 ^Q } 149,
{ 150 ^R } 150,
{ 151 ^S } 75,
{ 152 ^T } 152,
{ 153 ^U } 153,
{ 154 ^V } 82,
{ 155 ^W } 155,
{ 156 ^X } 156,
{ 157 ^Y } 157,
{ 158 ^Z } 158,
{ 159 ^[ } 159,
{ 160 ^\ } 160,
{ 161 ^] } 161,
{ 162 ^6 } 162,
{ 163 ^- } 163,
{ 164 } 164,
{ 165 } 165,
{ 166 } 166,
{ 167 } 167,
{ 168 } 168,
{ 169 } 169,
{ 170 } 170,
{ 171 } 171,
{ 172 } 172,
{ 173 } 173,
{ 174 } 174,
{ 175 } 175,
{ 176 } 176,
{ 177 } 177,
{ 178 } 178,
{ 179 } 179,
{ 180 } 180,
{ 181 } 181,
{ 182 } 182,
{ 183 } 183,
{ 184 } 184,
{ 185 } 185,
{ 186 } 186,
{ 187 } 187,
{ 188 } 188,
{ 189 } 189,
{ 190 } 190,
{ 191 } 191,
{ 192 } 192,
{ 193 } 193,
{ 194 } 194,
{ 195 } 195,
{ 196 } 196,
{ 197 } 197,
{ 198 } 198,
{ 199 } 199,
{ 200 } 200,
{ 201 } 201,
{ 202 } 202,
{ 203 } 203,
{ 204 } 204,
{ 205 } 205,
{ 206 } 206,
{ 207 } 207,
{ 208 } 208,
{ 209 } 209,
{ 210 } 210,
{ 211 } 211,
{ 212 } 212,
{ 213 } 213,
{ 214 } 214,
{ 215 } 215,
{ 216 } 216,
{ 217 } 217,
{ 218 } 218,
{ 219 } 219,
{ 220 } 220,
{ 221 } 221,
{ 222 } 222,
{ 223 } 223,
{ 224 } 224,
{ 225 } 225,
{ 226 } 226,
{ 227 } 227,
{ 228 } 228,
{ 229 } 229,
{ 230 } 230,
{ 231 } 231,
{ 232 } 232,
{ 233 } 233,
{ 234 } 234,
{ 235 } 235,
{ 236 } 236,
{ 237 } 237,
{ 238 } 238,
{ 239 } 239,
{ 240 } 240,
{ 241 } 241,
{ 242 } 242,
{ 243 } 243,
{ 244 } 244,
{ 245 } 245,
{ 246 } 246,
{ 247 } 247,
{ 248 } 248,
{ 249 } 249,
{ 250 } 250,
{ 251 } 251,
{ 252 } 252,
{ 253 } 253,
{ 254 } 254,
{ 255 } 255,
{ 256 } 256,
{ 257 } 257,
{ 258 } 258,
{ 259 } 259,
{ 260 } 260,
{ 261 } 261,
{ 262 } 262,
{ 263 } 263,
{ 264 } 264,
{ 265 } 265,
{ 266 } 266,
{ 267 } 267,
{ 268 } 268,
{ 269 } 269,
{ 270 } 270,
{ 271 } 271,
{ 272 } 272,
{ 273 } 273,
{ 274 } 274,
{ 275 } 275,
{ 276 } 276,
{ 277 } 277,
{ 278 } 278,
{ 279 } 279,
{ 280 } 280,
{ 281 } 281,
{ 282 } 282,
{ 283 } 283,
{ 284 } 284,
{ 285 } 285,
{ 286 } 286,
{ 287 } 287,
{ 288 } 288,
{ 289 } 289,
{ 290 } 290,
{ 291 } 291,
{ 292 } 292,
{ 293 } 293,
{ 294 } 294,
{ 295 } 295,
{ 296 } 296,
{ 297 } 297,
{ 298 } 298,
{ 299 } 299,
{ 300 } 300,
{ 301 } 301,
{ 302 } 302,
{ 303 } 303,
{ 304 } 304,
{ 305 } 305,
{ 306 } 306,
{ 307 } 307,
{ 308 } 308,
{ 309 } 309,
{ 310 } 310,
{ 311 } 311,
{ 312 } 312,
{ 313 } 313,
{ 314 } 314,
{ 315 } 315,
{ 316 } 316,
{ 317 } 317,
{ 318 } 318,
{ 319 } 319,
{ 320 } 320,
{ 321 } 321,
{ 322 } 322,
{ 323 } 323,
{ 324 } 324,
{ 325 } 325,
{ 326 } 326,
{ 327 } 327,
{ 328 } 328,
{ 329 } 329,
{ 330 } 330,
{ 331 } 331,
{ 332 } 332,
{ 333 } 333,
{ 334 } 334,
{ 335 } 335,
{ 336 } 336,
{ 337 } 337,
{ 338 } 338,
{ 339 } 339,
{ 340 } 340,
{ 341 } 341,
{ 342 } 342,
{ 343 } 343,
{ 344 } 344,
{ 345 } 345,
{ 346 } 346,
{ 347 } 347,
{ 348 } 348,
{ 349 } 349,
{ 350 } 350,
{ 351 } 351,
{ 352 } 352,
{ 353 } 353,
{ 354 } 354,
{ 355 } 355,
{ 356 } 356,
{ 357 } 357,
{ 358 } 358,
{ 359 } 359,
{ 360 } 360,
{ 361 } 361,
{ 362 } 362,
{ 363 } 363,
{ 364 } 364,
{ 365 } 365,
{ 366 } 366,
{ 367 } 367,
{ 368 } 368,
{ 369 } 369,
{ 370 } 370,
{ 371 } 371,
{ 372 } 372,
{ 373 } 373,
{ 374 } 374,
{ 375 } 375,
{ 376 } 376,
{ 377 } 377,
{ 378 } 378,
{ 379 } 379,
{ 380 } 380,
{ 381 } 381,
{ 382 } 382,
{ 383 } 383,
{ 384 } 384,
{ 385 } 385,
{ 386 } 386,
{ 387 } 387,
{ 388 } 388,
{ 389 } 389,
{ 390 } 390,
{ 391 } 391,
{ 392 } 392,
{ 393 } 393,
{ 394 } 394,
{ 395 } 395,
{ 396 } 396,
{ 397 } 397,
{ 398 } 398,
{ 399 } 399);
Function GetKey : Integer;
Var
Ch : Integer;
Begin
Ch := -1;
ch := BiosKbdGetElmt;
If (Ch >= 0) And (Ch <= 386) Then
Getkey := KeyTable[ch];
End;
Begin
end.